home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN-DN.SUB next >
Encoding:
Text File  |  1987-01-05  |  4.7 KB  |  252 lines
  1. ;                   ROBIN-DN.SUB    "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. ;
  9. START:
  10. ;
  11.   SWITCH S9
  12.     CASE "NUMBERS"
  13.       GOTO DISPLAY1
  14.     ENDCASE
  15.   ENDSWITCH
  16. ;
  17. DISPLAY-NUMS:
  18.   LOCATE 9,0
  19.   MESSAGE"╔═══════════════════════════════════════════════════════════════════╗"
  20.   MESSAGE"║                    DIALING LIST:                                  ║"
  21.   MESSAGE"║ 1:                                                                ║"
  22.   MESSAGE"║ 2:                                                                ║"
  23.   MESSAGE"║ 3:                                                                ║"
  24.   MESSAGE"║ 4:                                                                ║"
  25.   MESSAGE"║ 5:                                                                ║"
  26.   MESSAGE"║ 6:                                                                ║"
  27.   MESSAGE"║ 7:                                                                ║"
  28.   MESSAGE"║ 8:                                                                ║"
  29.   MESSAGE"║                                                                   ║"
  30.   MESSAGE"║         NOW DIALING :                                             ║"
  31.   MESSAGE"╚═══════════════════════════════════════════════════════════════════╝"
  32. ;
  33. FIND S9 "NAMES"
  34.   IF FOUND
  35.   GOTO DISPLAYA
  36.   ENDIF
  37. ;
  38. DISPLAY1:
  39.   LOCATE 11,6
  40.   MESSAGE S1
  41.   SWITCH S1
  42.     CASE "END"
  43.     LOCATE 21,9
  44.     MESSAGE "'ROBIN.CMD' ENDED.  NO NUMBERS TO DIAL."
  45.     ALARM 2
  46.     GOTO EXIT
  47.     ENDCASE
  48.     CASE "end"
  49.     LOCATE 21,9
  50.     ASSIGN S1 "END"
  51.     MESSAGE "'ROBIN.CMD' ENDED.  NO NUMBERS TO DIAL."
  52.     ALARM 2
  53.     GOTO EXIT
  54.     ENDCASE
  55.   ENDSWITCH
  56. DISPLAY2:
  57.   LOCATE 12,6
  58.   MESSAGE S2
  59.   SWITCH S2
  60.     CASE "END"
  61.     GOTO DSPLY-OK
  62.     ENDCASE
  63.     CASE "end"
  64.     ASSIGN S2 "END"
  65.     GOTO DSPLY-OK
  66.     ENDCASE
  67.   ENDSWITCH
  68. DISPLAY3:
  69.   LOCATE 13,6
  70.   MESSAGE S3
  71.   SWITCH S3
  72.     CASE "END"
  73.     GOTO DSPLY-OK
  74.     ENDCASE
  75.     CASE "end"
  76.     ASSIGN S3 "END"
  77.     GOTO DSPLY-OK
  78.     ENDCASE
  79.   ENDSWITCH
  80. DISPLAY4:
  81.   LOCATE 14,6
  82.   MESSAGE S4
  83.   SWITCH S4
  84.     CASE "END"
  85.     GOTO DSPLY-OK
  86.     ENDCASE
  87.     CASE "end"
  88.     ASSIGN S4 "END"
  89.     GOTO DSPLY-OK
  90.     ENDCASE
  91.   ENDSWITCH
  92. DISPLAY5:
  93.   LOCATE 15,6
  94.   MESSAGE S5
  95.   SWITCH S5
  96.     CASE "END"
  97.     GOTO DSPLY-OK
  98.     ENDCASE
  99.     CASE "end"
  100.     ASSIGN S5 "END"
  101.     GOTO DSPLY-OK
  102.     ENDCASE
  103.   ENDSWITCH
  104. DISPLAY6:
  105.   LOCATE 16,6
  106.   MESSAGE S6
  107.   SWITCH S6
  108.     CASE "END"
  109.     GOTO DSPLY-OK
  110.     ENDCASE
  111.     CASE "end"
  112.     ASSIGN S6 "END"
  113.     GOTO DSPLY-OK
  114.     ENDCASE
  115.   ENDSWITCH
  116. DISPLAY7:
  117.   LOCATE 17,6
  118.   MESSAGE S7
  119.   SWITCH S7
  120.     CASE "END"
  121.     GOTO DSPLY-OK
  122.     ENDCASE
  123.     CASE "end"
  124.     ASSIGN S7 "END"
  125.     GOTO DSPLY-OK
  126.     ENDCASE
  127.   ENDSWITCH
  128. DISPLAY8:
  129.   LOCATE 18,6
  130.   MESSAGE S8
  131.   SWITCH S8
  132.     CASE "END"
  133.     GOTO DSPLY-OK
  134.     ENDCASE
  135.     CASE "end"
  136.     ASSIGN S8 "END"
  137.     GOTO DSPLY-OK
  138.     ENDCASE
  139.   ENDSWITCH
  140. ;
  141. DSPLY-OK:
  142.   ASSIGN S0 "DISPLAY-NUMS"
  143.   EXECUTE "ROBIN.CMD"
  144. ;
  145. ;
  146. DISPLAYA:
  147.   LOCATE 11,25
  148.   MESSAGE S1
  149.   SWITCH S1
  150.     CASE "END"
  151.      GOTO NAME-OK
  152.     ENDCASE
  153.     CASE "end"
  154.      ASSIGN S1 "END"
  155.      GOTO NAME-OK
  156.     ENDCASE
  157.   ENDSWITCH
  158. DISPLAYB:
  159.   LOCATE 12,25
  160.   MESSAGE S2
  161.   SWITCH S2
  162.     CASE "END"
  163.     GOTO NAME-OK
  164.     ENDCASE
  165.     CASE "end"
  166.     ASSIGN S2 "END"
  167.     GOTO NAME-OK
  168.     ENDCASE
  169.   ENDSWITCH
  170. DISPLAYC:
  171.   LOCATE 13,25
  172.   MESSAGE S3
  173.   SWITCH S3
  174.     CASE "END"
  175.     GOTO NAME-OK
  176.     ENDCASE
  177.     CASE "end"
  178.     ASSIGN S3 "END"
  179.     GOTO NAME-OK
  180.     ENDCASE
  181.   ENDSWITCH
  182. DISPLAYD:
  183.   LOCATE 14,25
  184.   MESSAGE S4
  185.   SWITCH S4
  186.     CASE "END"
  187.     GOTO NAME-OK
  188.     ENDCASE
  189.     CASE "end"
  190.     ASSIGN S4 "END"
  191.     GOTO NAME-OK
  192.     ENDCASE
  193.   ENDSWITCH
  194. DISPLAYE:
  195.   LOCATE 15,25
  196.   MESSAGE S5
  197.   SWITCH S5
  198.     CASE "END"
  199.     GOTO NAME-OK
  200.     ENDCASE
  201.     CASE "end"
  202.     ASSIGN S5 "END"
  203.     GOTO NAME-OK
  204.     ENDCASE
  205.   ENDSWITCH
  206. DISPLAYF:
  207.   LOCATE 16,25
  208.   MESSAGE S6
  209.   SWITCH S6
  210.     CASE "END"
  211.     GOTO NAME-OK
  212.     ENDCASE
  213.     CASE "end"
  214.     ASSIGN S6 "END"
  215.     GOTO NAME-OK
  216.     ENDCASE
  217.   ENDSWITCH
  218. DISPLAYG:
  219.   LOCATE 17,25
  220.   MESSAGE S7
  221.   SWITCH S7
  222.     CASE "END"
  223.     GOTO NAME-OK
  224.     ENDCASE
  225.     CASE "end"
  226.     ASSIGN S7 "END"
  227.     GOTO NAME-OK
  228.     ENDCASE
  229.   ENDSWITCH
  230. DISPLAYH:
  231.   LOCATE 18,25
  232.   MESSAGE S8
  233.   SWITCH S8
  234.     CASE "END"
  235.     GOTO NAME-OK
  236.     ENDCASE
  237.     CASE "end"
  238.     ASSIGN S8 "END"
  239.     GOTO NAME-OK
  240.     ENDCASE
  241.   ENDSWITCH
  242. ;
  243. NAME-OK:
  244.   ASSIGN S0 "ROBIN-DN.SUB"
  245.   ASSIGN S8 S9
  246.   ASSIGN S9 "NUMBERS"
  247.   EXECUTE S8
  248. ;
  249. ;
  250. EXIT:
  251. EXIT
  252.